home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / T-TPUG Old Monthly Disks / (c)t4.d64 / personal accnt.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  4KB  |  110 lines
  1. 1 REM   * * * * * * * * * * * * * * * *
  2. 2 REM   *       PERSONAL ACCOUNTING   *
  3. 3 REM   *                             *
  4. 4 REM   *              BY             *
  5. 5 REM   *         JIMMY M. SMITH      *
  6. 6 REM   *          P.O. BOX 1297      *
  7. 7 REM   *        MARFA, TX. 79843     *
  8. 8 REM   * * * * * * * * * * * * * * * *
  9. 10 DIMC$(5),D$(25),D(25):C=0:D=0:PRINT"[147]"
  10. 11 PRINT"[147]":PRINT:PRINT"WHICH DO YOU WANT TO DO: ":PRINTTAB(5)"1. WORK CURRENT MONTH"
  11. 12 PRINTTAB(5)"2. REVIEW LAST MONTH"
  12. 13 GETZ$:IFZ$=""THEN13
  13. 14 IFZ$="2"THENGOSUB1500
  14. 15 PRINT:PRINT"DO YOU NEED INSTRUCTIONS (Y OR N)?"
  15. 16 GETZ$:IFZ$=""THEN16
  16. 17 IFZ$="Y"THENGOSUB1000
  17. 18 PRINT"[147]":PRINT
  18. 20 PRINT:INPUT"ENTER PRESENT BANK BALANCE";BB
  19. 30 PRINT:INPUT"ENTER CURRENT MONTH";MO$
  20. 31 PRINT"[147]":PRINT:C=0:IT=0
  21. 35 PRINT"* * * * * * * * * * * * * * * * * * * *":PRINT:PRINTTAB(16)"INCOME"
  22. 36 PRINT:PRINT"* * * * * * * * * * * * * * * * * * * *"
  23. 40 PRINT:INPUT"ENTER INCOME SOURCE";C$(C)
  24. 43 IFC$(C)="OVER"THENGOTO31
  25. 45 IFC$(C)="STOP"THENGOTO100
  26. 50 INPUT"ENTER AMOUNT";C(C):IT=IT+C(C):C=C+1:GOTO40
  27. 100 PRINT"[147]":PRINT:PRINT:PRINT"YOUR INCOME IS: "
  28. 110 PRINT:FORX=0TOC-1:PRINTTAB(5)STR$(X+1);". ";C$(X),C(X):NEXT
  29. 120 PRINT:PRINT"TOTAL INCOME: $";IT:BT=IT+BB
  30. 130 PRINT"PRESENT BALANCE IS $";BT
  31. 140 PRINT:PRINT:PRINT
  32. 150 PRINT"DO YOU WANT TO SAVE THE DATA?[160](Y OR N)"
  33. 155 GETZ$:IFZ$=""THEN155
  34. 157 IFZ$="N"GOTO180
  35. 160 OPEN1,1,1,"PERFIN"+MO$+"C"
  36. 170 FORX=0TOC-1:PRINT#1,C$(X)CHR$(13)C(X):NEXTX:CLOSE1
  37. 180 PRINT"[147]":PRINT:PRINT"* * * * * * * * * * * * * * * * * * * *":D=0:ET=0
  38. 185 PRINT:PRINTTAB(15)"EXPENSES":PRINT
  39. 190 PRINT:PRINT"* * * * * * * * * * * * * * * * * * * *"
  40. 200 PRINT:INPUT"ENTER EXPENSE SOURCE";D$(D)
  41. 202 IFD$(D)="OVER"THENGOTO180
  42. 205 IFD$(D)="STOP"THENGOTO300
  43. 210 INPUT"ENTER AMOUNT";D(D):ET=ET+D(D):D=D+1:GOTO200
  44. 300 PRINT"[147]":PRINT:PRINT:PRINT"YOUR EXPENSES ARE: "
  45. 310 PRINT:FORX=0TOD-1:PRINTTAB(5)STR$(X+1);". ";D$(X),D(X):NEXT
  46. 320 PRINT:PRINT"TOTAL EXPENSES: $";ET:BT=BT-ET
  47. 330 PRINT"PRESENT BALANCE IS $";BT
  48. 340 PRINT:PRINT:PRINT
  49. 350 PRINT"DO YOU WANT TO SAVE THE DATA?[160](Y OR N)"
  50. 355 GETZ$:IFZ$=""THEN355
  51. 356 IFZ$="N"GOTO400
  52. 360 OPEN1,1,1,"PERFIN"+MO$+"D"
  53. 370 FORX=0TOD-1:PRINT#1,D$(X)CHR$(13)D(X):NEXTX:CLOSE1
  54. 380 OPEN1,1,1,"PERFIN"+MO$+"BT"
  55. 385 PRINT#1,BT:CLOSE 1 :PRINT
  56. 400 PRINT"[147]":PRINTTAB(8)"SUMMARY OF TRANSACTIONS"
  57. 405 PRINTTAB(8)"[197][197][197][197][197][197][197] [197][197] [197][197][197][197][197][197][197][197][197][197][197][197]"
  58. 410 PRINT:PRINT"TOTAL INCOME WAS:";TAB(25)"$";IT
  59. 420 PRINT"TOTAL EXPENSE WAS:";TAB(25)"$";ET
  60. 430 PRINT:PRINT:PRINT"PRESENT BALANCE IS:";TAB(25)"$";BT
  61. 440 PRINT:PRINT:PRINT:IFBT<0THENPRINT"BETTER DIG FOR GOLD; YOU'RE IN THE RED
  62. 450 [139]BT[177]0[167][153]"WELL DONE! SAFE FOR ANOTHER MONTH"
  63. 900 [128]
  64. 1000 [153]"LOAD":[153]:[153][163]3)"INSTRUCTIONS FOR PERSONAL FINANCE"
  65. 1010 [153][163]3)"VALVALVALVALVALVALVALVALVALVALVALVALCLOSEVALVALVALCLOSEVALVALVALVALVALVALVALVALCLOSEVALVALVALVALVALVALVAL"
  66. 1020 [153]:[153][163]5)"SIMPLY DO AS THE COMPUTER TELLS YOU TO DO."
  67. 1030 [153]:[153][163]5)"IF YOU MAKE A MISTAKE AT ANY POINT IN ";
  68. 1040 [153]"MAKING YOUR ENTRIES, SIMPLY TYPE IN  'OVER' AT THE NEXT SOURCE ";
  69. 1050 [153]"REQUEST. THEN MAKE ALL ENTRIES OVER AGAIN."
  70. 1055 [153]:[153][163]5)"WHEN THROUGH MAKING ENTRIES, ";
  71. 1060 [153]"TYPE  IN 'STOP'AT THE SOURCE REQUEST."
  72. 1070 [153]:[153]:[153]"HIT ANY KEY WHEN YOU'RE READY TO GO"
  73. 1080 [161]Z$:[139]Z$[178]""[167]1080
  74. 1090 [142]
  75. 1500 [153]"LOAD":[153]:[133]"ENTER LAST MONTH";MO$:[153]"INSERT TAPE FOR ";MO$;" &"
  76. 2000 [153]"ON";
  77. 2010 [159]1,1,0,"PERFIN"[170]MO$[170]"C"
  78. 2011 [153]:[153]"* * * * * * * * * * * * * * * * * * * *"
  79. 2012 [153]:[153][163]16)"INCOME":[153]
  80. 2013 [153]"* * * * * * * * * * * * * * * * * * * *"
  81. 2014 [153]:[153][163]5)"SOURCE";[163]27)"AMOUNT"
  82. 2015 [153][163]5)"VALVALVALVALVALVAL";[163]27)"VALVALVALVALVALVAL"
  83. 2020 [161]#1,C$:[139]C$[179][177][199](13)[167][153]C$;:[139]C$[179][177][199](13)[167]2020
  84. 2030 [153],:[132]1,C:[153][163]30)C
  85. 2035 Z[178]Z[170]C
  86. 2040 [139]ST[178]0[167]2020
  87. 2045 [153]:[153]"TOTAL INCOME WAS $";Z
  88. 2050 [160]1:[153]:[153]"TO SEE EXPENSES HIT ANY KEY"
  89. 2060 [161]Z$:[139]Z$[178]""[167]2060
  90. 2100 [153]"LOAD":[153]
  91. 2110 [159]1,1,0,"PERFIN"[170]MO$[170]"D"
  92. 2111 [153]:[153]"* * * * * * * * * * * * * * * * * * * *"
  93. 2112 [153]:[153][163]16)"EXPENSES":[153]
  94. 2113 [153]"* * * * * * * * * * * * * * * * * * * *"
  95. 2114 [153]:[153][163]5)"SOURCE";[163]27)"AMOUNT"
  96. 2115 [153][163]5)"VALVALVALVALVALVAL";[163]27)"VALVALVALVALVALVAL"
  97. 2120 [161]#1,D$:[139]D$[179][177][199](13)[167][153]D$;:[139]D$[179][177][199](13)[167]2120
  98. 2130 [153],:[132]1,D:[153][163]30)D
  99. 2135 DT[178]DT[170]D
  100. 2140 [139]ST[178]0[167]2120
  101. 2145 [160]1
  102. 2150 [159]1,1,0,"PERFIN"[170]MO$[170]"BT"
  103. 2155 [132]1,BT:[160]1
  104. 2156 [153]:[153]"EXPENSES TOTALED $";DT
  105. 2160 [153]:[153]"YOUR CLOSING BALANCE WAS $";BT
  106. 2170 BT[178]0
  107. 2250 [153]:[153]"TO CONTINUE HIT ANY KEY"
  108. 2260 [161]Z$:[139]Z$[178]""[167]2260
  109. 2270 [142]
  110.